Pocitani hodin a minut

Otázka od: LUKES Václav

1. 10. 2002 13:09

Ahoj,

prosim o radu.
Mam napr. v promenne A 3 hodiny a v promenne B 63 minut. Potreboval bych to
sloucit a vypsat, kolik je to celkenh hodin a kolik minut.

Diky

V.

Odpovedá: ing. Jan Fiala

1. 10. 2002 13:39

Podivej se na funkci EncodeDateTime. Tech 63 minut mu nevadi.

--
ing. Jan Fiala
mailto:jan.fiala@iol.cz

1.10.2002 LUKES Václav:
> prosim o radu.
> Mam napr. v promenne A 3 hodiny a v promenne B 63 minut. Potreboval bych to
sloucit a vypsat, kolik je to celkenh hodin a kolik minut.

Odpovedá: Milan Cizek

1. 10. 2002 14:49

> prosim o radu.
> Mam napr. v promenne A 3 hodiny a v promenne B 63 minut. Potreboval bych to
sloucit a vypsat, kolik je to celkenh hodin a kolik minut.

Ahoj,
udelej si smycku, ve ktere nejprve vzdy otestujes, jestli je B=>60,
pokud ano, tak odectes od B 60 a inkrementujes (prictes 1 k) A. Pokud
je B<60, pak se smzcka ukonci.

S pozdravem Milan Cizek, amatersky programator, D6 Ent (SP2)
Win2k (SP2) a Win98 SE, cizek.milan@seznam.cz, ICQ:
59826637

______________________________________________________________________
Reklama:
E-mail zdarma na cely zivot: http://email.seznam.cz

Odpovedá: Milan Tomes

1. 10. 2002 16:22

Pisu z hlavy, takze nevim jestli to projde

function EncodeTime(H, M: word): TDateTime;
begin
  Result := EncodeTime(H + (M div 60), M mod 60, 0, 0);
end;

S pozdravem

Milan Tomes
mailto:milan.tomes@haida.cz

> Mam napr. v promenne A 3 hodiny a v promenne B 63 minut.
> Potreboval bych to sloucit a vypsat, kolik je to celkenh hodin a
> kolik minut.
> V.


Tato zprava byla zkontrolovana na serveru server.haida.cz
antivirovym programem RAV antivirus.

Odpovedá: ing. Jan Fiala

1. 10. 2002 14:58

1.10.2002 Milan Tomes:
> Pisu z hlavy, takze nevim jestli to projde

> function EncodeTime(H, M: word): TDateTime;
> begin
> Result := EncodeTime(H + (M div 60), M mod 60, 0, 0);
> end;

S temi minutami neni treba tam takhle carovat. Klidne mu tam muzes dat
120 minut a on si s tim poradi a sam si to prepocita.

--
ing. Jan Fiala
mailto:jan.fiala@iol.cz

Odpovedá: David Michal

1. 10. 2002 16:13

var
 Cas : TDateTime;
begin
 Cas := ((A*60) + B) / (60 * 24);
end;

Nezkouseno.  
David

1.10.2002 LUKES Václav:
> prosim o radu.
> Mam napr. v promenne A 3 hodiny a v promenne B 63 minut. Potreboval bych
to sloucit a vypsat, kolik je to celkenh hodin a kolik minut.

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.391 / Virus Database: 222 - Release Date: 19/09/2002

Odpovedá: Vaclav Sazima

1. 10. 2002 15:40

LUKES Václav wrote:
> prosim o radu.
> Mam napr. v promenne A 3 hodiny a v promenne B 63 minut. Potreboval bych to
sloucit a vypsat, kolik je to celkenh hodin a kolik minut.
>
   DateTimeToStr (A / 24 + B / (24 * 60))

  Vaclav Sazima